home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue53 / ccorn / Listing3.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-12-09  |  903 b   |  43 lines
  1. [
  2.   uuid(94ED6F09-5C0D-40BA-BC06-0069D77719AF), 
  3.   version(1.0), 
  4.   helpstring("Project1 Library")
  5. ]
  6. library Project1
  7. {
  8.   importlib("StdOle2.Tlb");
  9.   importlib("STDVCL40.DLL");
  10.   [
  11.     uuid(7E34A054-0931-405D-8D72-11F01C3AFD55), 
  12.     version(1.0), 
  13.     helpstring("Dispatch interface for MultiObj Object"), 
  14.     dual, 
  15.     oleautomation
  16.   ]
  17.    interface IMultiObj: IDispatch
  18.   {
  19.     [id(0x00000001)]
  20.     HRESULT _stdcall SomeMethod( void );
  21.   };
  22.   [
  23.     uuid(D407D6A0-88D2-4BBF-8B1E-EE44C3C7CA8C), 
  24.     version(1.0), 
  25.     dual, 
  26.     oleautomation
  27.   ]
  28.    interface ISecondIntf: IDispatch
  29.   {
  30.     [id(0x00000001)]
  31.     HRESULT _stdcall OtherMethod( void );
  32.   };
  33.   [
  34.     uuid(CAB19A4E-73ED-4D3A-83AB-01AFE4BD3394), 
  35.     version(1.0), 
  36.     helpstring("MultiObj Object")
  37.   ]
  38.   coclass MultiObj
  39.   {
  40.     [default] interface IMultiObj;
  41.     interface ISecondIntf;
  42.   };
  43. };